home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1146 < prev    next >
Encoding:
Text File  |  1994-01-25  |  2.4 KB  |  108 lines
  1. userdict begin /ropedict 85 dict def end 
  2. ropedict begin 
  3. /blocksetup
  4. { q translate rotate scale n } def 
  5. /blockend
  6. { closepath fill } def
  7. /blockfinish
  8. { closepath fill Q } def
  9. /movetoproc { 
  10. dup /sby xdf 
  11. /spy xdf 
  12. dup /sbx xdf 
  13. /spx xdf 
  14. sbx sby m
  15. } def
  16. /1stlinetoproc 
  17. { /esy xdf /esx xdf 
  18. blockdata 
  19. /totdist totdist dist add def
  20. /sbx esx def /sby esy def
  21. deltax 0 ne deltay 0 ne and
  22. { /prevtotdeltax deltax def /prevtotdeltay deltay def } if
  23. } def
  24. /2ndlinetoproc 
  25. { /esy xdf /esx xdf 
  26. bdflag false eq 
  27. {blockdata esx spx eq esy spy eq and{lastsegdist}if}if 
  28. offset ldelta add dist le 
  29. { 
  30. deltax 0 eq deltay 0 eq and
  31.  {/ang 0 def}{/ang deltay deltax atan def}ifelse
  32.  offset 0 lt 
  33.  {/prevang prevdeltax 0 eq prevdeltay 0 eq and
  34. {0}{prevdeltay neg prevdeltax neg atan}ifelse def
  35. ang prevang sub abs dup 120 le exch 240 ge or
  36. {/offset 0 def bdflag true eq
  37. { 
  38. lastsegdist
  39. }if 
  40. }if
  41.  }if
  42.  offset ldelta dist
  43.  {/curdelta xdf  
  44. /ldeltax ang cos curdelta ldelta 2 div add mul def
  45. /ldeltay ang sin curdelta ldelta 2 div add mul def
  46. bll2 blw ang sbx ldeltax add sby ldeltay add drawblock
  47. /offset curdelta ldelta add dist sub def
  48. ldelta offset abs .001 add gt {exit} if
  49.  }for
  50.  /prevdeltax deltax def  /prevdeltay deltay def
  51. /deltax 0 def /deltay 0 def
  52.  
  53. /sbx esx def /sby esy def 
  54. }if
  55. }def
  56. /1stcloseproc 
  57. { spx spy 1stlinetoproc
  58. }def
  59. /2ndcloseproc 
  60. {sbx spx ne sby spy ne or{
  61.  
  62.  
  63.  
  64.  /esx spx def  /esy spy def blockdata  /bdflag true def lastsegdist
  65.  spx spy 2ndlinetoproc}if
  66. }def
  67.  
  68. /blockdata 
  69. { /deltay esy sby sub def 
  70. /deltax esx sbx sub def
  71. /dist deltay dup mul deltax dup mul add sqrt def
  72. }def
  73. /lastsegdist 
  74. {/dist dist offset sub ldelta div round ldelta mul offset add def
  75. }def
  76. end 
  77. /newrope 
  78.  {
  79.  supdict begin  
  80.  ropedict begin   
  81.  /color xdf 
  82.  colorchoice
  83.  /spacing xdf
  84.  /blw xdf 
  85.  /bll xdf 
  86.  /drawblock xdf
  87.  
  88.  q {flattenpath}fp
  89.  /totdist 0 def   /totdeltax 0 def  /totdeltay 0 def
  90.  
  91.  {movetoproc} {1stlinetoproc} {} {1stcloseproc} pathforall
  92.  /nm totdist bll spacing add div def 
  93.  /nm2 nm floor def  
  94.  nm2 0 ne
  95. {
  96. /fr nm nm2 sub def 
  97. /nm2 fr 0.5 ge {nm2 1 add} {nm2} ifelse def 
  98. /bll2 fr 0.5 ge {fr 1.0 sub} {fr} ifelse 
  99. bll spacing add mul nm2 div bll add spacing add def 
  100. /ldelta bll2 def 
  101. /bll2 bll2 bll bll spacing add div mul def
  102. /offset 0 def /totdeltax 0 def /totdeltay 0 def /cnt 0 def
  103. /prevtotdeltax 0 def /prevtotdeltay 0 def /bdflag false def
  104. {movetoproc} {2ndlinetoproc} {} {2ndcloseproc} pathforall
  105. } if
  106.  Q n end end  
  107.  } def